Option Explicit
Sub B_Sample019()
    Dim myRng As Range
    Set myRng = Range("A1")		'Nxs
    With myRng
        MsgBox "A1ѷ" & vbTab & .Address & vbCrLf _
        & "A1۹ѷ" & vbTab & .Address(False, False) & vbCrLf _
        & "R1C1ѷ" & vbTab & .Address(ReferenceStyle:=xlR1C1) & vbCrLf _
        & " R1C1۹ѷ" & vbTab & .Address(False, False, xlR1C1)
    End With
    Set myRng = Nothing				'
End Sub
